home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / AGSWAK__.ZIP / AGSWAK!!.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-05-18  |  10KB  |  717 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     DWord    DWORD001
  23.     DWord    DWORD002
  24.     Integer  INTEGER001
  25.     Integer  INTEGER002
  26.     Integer  INTEGER003
  27.     Integer  INTEGER004
  28.     Integer  INTEGER005
  29.     Real     REAL001
  30.     Real     REAL002
  31.     String   STRING001
  32.     String   STRING002
  33.     String   STRING003
  34.     String   STRING004
  35.     String   STRING005
  36.     String   STRING006
  37.     String   STRING007
  38.     String   STRING008
  39.     String   STRING009
  40.     String   STRING010
  41.     String   STRING011
  42.     String   STRING012
  43.     String   STRING013
  44.     Time     TIME001
  45.     Time     TIME002
  46.     Int      INT001
  47.     Int      INT002
  48.     Int      INT003
  49.     Int      INT004
  50.  
  51. ;------------------------------------------------------------------------------
  52.  
  53.     STRING009 = PPEPath() + "music\music.lst"
  54.     STRING006 = ReadLine(PPEPath() + "agswak!!.cfg", 3)
  55.     BOOLEAN003 = ToBoolean(ReadLine(PPEPath() + "agswak!!.cfg", 11))
  56.     If (ReadLine(PPEPath() + "agswak!!.cfg", 1) == "RANDOM") Then
  57.         INTEGER002 = FileInf(STRING009, 4) / 14
  58.         STRING008 = Trim(PPEPath() + "MUSIC\" + ReadLine(STRING009, Random(INTEGER002 - 1) + 1), " ")
  59.     Else
  60.         STRING008 = Trim(PPEPath() + "MUSIC\" + ReadLine(PPEPath() + "agswak!!.cfg", 1), " ")
  61.     Endif
  62.     If (ReadLine(PPEPath() + "agswak!!.cfg", 2) == "RANDOM") Then
  63.         INTEGER002 = FileInf(STRING009, 4) / 14
  64.         STRING012 = Trim(PPEPath() + "MUSIC\" + ReadLine(STRING009, Random(INTEGER002 - 1) + 1), " ")
  65.     Else
  66.         STRING012 = Trim(PPEPath() + "MUSIC\" + ReadLine(PPEPath() + "agswak!!.cfg", 2), " ")
  67.     Endif
  68.     If (Exist(STRING008)) Goto LABEL001
  69.     PrintLn "@X04Error ! Music file " + STRING008 + " does not exist, notify sysop!"
  70.     End
  71.     :LABEL001
  72.     If (Exist(STRING012)) Goto LABEL002
  73.     PrintLn "@X04Error ! Music file " + STRING012 + " does not exist, notify sysop!"
  74.     End
  75.     :LABEL002
  76.     Cls
  77.     StartDisp 1
  78.     DispFile PPEPath() + "agswak!!", 1 + 4
  79.     AnsiPos 3, 6
  80.     BOOLEAN002 = 0
  81.     INTEGER005 = 73
  82.     Gosub LABEL027
  83.     Gosub LABEL033
  84.     If (STRING005 == "") Goto LABEL021
  85.     STRING013 = STRING005
  86.     Cls
  87.     AnsiPos 56, 6
  88.     PrintLn "@X0E  .-~~~~-."
  89.     AnsiPos 56, 7
  90.     PrintLn "@X0E {  @X0Fo@X0E     }"
  91.     AnsiPos 56, 8
  92.     PrintLn "@X0E /       /"
  93.     AnsiPos 56, 9
  94.     PrintLn "@X0E`--r'   {    ,___.-',"
  95.     AnsiPos 56, 10
  96.     PrintLn "@X0E  /      `-~         ',"
  97.     AnsiPos 56, 11
  98.     PrintLn "@X0E {                    '"
  99.     AnsiPos 56, 12
  100.     PrintLn "@X0E  \                  /"
  101.     AnsiPos 56, 13
  102.     PrintLn "@X0E   \                /"
  103.     AnsiPos 56, 14
  104.     PrintLn "@X09  ~ ~~~~~~~~~~~~~~~~~ ~"
  105.     AnsiPos 1, 13
  106.     Print "@X0F       @X0E_()@X06<"
  107.     AnsiPos 1, 14
  108.     Print "@X09 _  __@X0E(__)"
  109.     AnsiPos 40 - Len(STRING013) / 2, 16
  110.     SPrint "" + STRING013
  111.     AnsiPos 26, 18
  112.     SPrint "[SPACE]:Chat  -  [ESC]:Abort"
  113.     Gosub LABEL033
  114.     While (GetToken() <> "") Do
  115.     EndWhile
  116.     STRING001 = ReadLine(PPEPath() + "agswak!!.cfg", 4 + Dow(Date()))
  117.     Tokenize STRING001
  118.     While (TokCount() > 0) Do
  119.         STRING004 = GetToken()
  120.         TIME001 = ToTime(Left(STRING004, 5))
  121.         TIME002 = ToTime(Right(STRING004, 5))
  122.         If ((Time() > TIME001) && (Time() < TIME002)) Goto LABEL003
  123.     EndWhile
  124.     Goto LABEL023
  125.     :LABEL003
  126.     FOpen 1, STRING008, 0, 0
  127.     While (1) Do
  128.         STRING007 = MInkey()
  129.         If (STRING007 == Chr(27)) Goto LABEL021
  130.         STRING007 = KInkey()
  131.         If (STRING007 == Chr(27)) Break
  132.         If (STRING007 == " ") Then
  133.             FClose 1
  134.             Sound 0
  135.             Chat
  136.             PageOff
  137.             End
  138.         Endif
  139.         If (PeekDW(MkAddr(64, 108)) > DWORD002 + 2) Then
  140.             DWORD002 = PeekDW(MkAddr(64, 108))
  141.             If ((INTEGER004 == 5) || (INTEGER004 == 7)) Then
  142.                 AnsiPos 1 + REAL001, 13
  143.                 Print "@X0F      @X0E__()@X06< @X0FWAK!!"
  144.                 Inc INTEGER004
  145.                 Goto LABEL005
  146.             Endif
  147.             If ((INTEGER004 == 6) || (INTEGER004 == 8)) Then
  148.                 AnsiPos 1 + REAL001, 13
  149.                 Print "@X0F      @X0E_()@X06<       "
  150.                 Inc INTEGER004
  151.                 If (INTEGER004 == 9) INTEGER004 = 0
  152.                 Goto LABEL005
  153.             Endif
  154.             If (BOOLEAN001 == 1) Then
  155.                 BOOLEAN001 = 0
  156.                 Goto LABEL004
  157.             Endif
  158.             BOOLEAN001 = 1
  159.             :LABEL004
  160.             If (BOOLEAN001) Then
  161.                 AnsiPos 1 + REAL001, 13
  162.                 Print "@X0F       @X0E_()@X06<"
  163.                 Inc REAL001
  164.                 If (REAL001 < 41) Inc INTEGER004
  165.                 Goto LABEL005
  166.             Endif
  167.             AnsiPos 1 + REAL001, 14
  168.             Print "@X09 _  __@X0E(__)"
  169.             AnsiPos 1 + REAL001 + 6, 13
  170.             Print " "
  171.             :LABEL005
  172.             Gosub LABEL033
  173.         Endif
  174.         If (REAL001 > 51) Goto LABEL023
  175.         If (PeekDW(MkAddr(64, 108)) > DWORD001 + INTEGER001 / (100 / 18.2)) Then
  176.             :LABEL006
  177.             Gosub LABEL007
  178.             If (INTEGER003 == -1) Then
  179.                 FClose 1
  180.                 FOpen 1, STRING008, 0, 0
  181.                 Goto LABEL006
  182.             Endif
  183.             Sound 0
  184.             Sound INTEGER003
  185.             DWORD001 = PeekDW(MkAddr(64, 108))
  186.         Endif
  187.     EndWhile
  188.     Goto LABEL023
  189.     End
  190.     :LABEL007
  191.     FGet 1, STRING001
  192.     If (STRING001 == "") Then
  193.         INTEGER003 = -1
  194.         Return
  195.     Endif
  196.     Select Case (Left(STRING001, 5))
  197.         Case "TONE "
  198.             STRING001 = Mid(STRING001, 6, Len(STRING001) - 5)
  199.             INTEGER003 = S2I(Left(STRING001, InStr(STRING001, " ") - 1), 10)
  200.             INTEGER001 = S2I(Mid(STRING001, InStr(STRING001, " ") + 1, Len(STRING001) - InStr(STRING001, " ")), 10)
  201.             Return
  202.         Case "WAIT "
  203.             INTEGER001 = S2I(Mid(STRING001, 6, Len(STRING001) - 5), 10)
  204.             INTEGER003 = 0
  205.             Return
  206.         Case Else
  207.             Goto LABEL007
  208.     End Select
  209.     :LABEL008
  210.     Cls
  211.     DispFile PPEPath() + "emergenc", 0 + 4
  212.     AnsiPos 50, 18
  213.     SPrint "[SPACE]:Chat  -  [ESC]:Abort"
  214.     Gosub LABEL033
  215.     INT001 = 5
  216.     INT002 = 2
  217.     REAL001 = 0
  218.     BOOLEAN001 = 0
  219.     Gosub LABEL015
  220.     FOpen 1, STRING012, 0, 0
  221.     BOOLEAN001 = 1
  222.     While (1) Do
  223.         STRING007 = MInkey()
  224.         If (STRING007 == Chr(27)) Break
  225.         STRING007 = KInkey()
  226.         If (STRING007 == Chr(27)) Break
  227.         If (STRING007 == " ") Then
  228.             FClose 1
  229.             Sound 0
  230.             PageOff
  231.             Chat
  232.             End
  233.         Endif
  234.         If (PeekDW(MkAddr(64, 108)) > DWORD002 + 4) Then
  235.             DWORD002 = PeekDW(MkAddr(64, 108))
  236.             If (BOOLEAN001 == 1) Then
  237.                 BOOLEAN001 = 0
  238.                 Goto LABEL009
  239.             Endif
  240.             BOOLEAN001 = 1
  241.             :LABEL009
  242.             If (BOOLEAN001) Then
  243.                 INT001 = 5 + REAL001
  244.                 INT002 = 2 + INT003
  245.                 Gosub LABEL015
  246.                 If (INT003 == 0) Then
  247.                     Inc REAL001
  248.                     Goto LABEL010
  249.                 Endif
  250.                 REAL002 = 2
  251.                 REAL002 = REAL002 / INT003
  252.                 REAL001 = REAL001 + REAL002
  253.                 :LABEL010
  254.                 Goto LABEL011
  255.             Endif
  256.             Gosub LABEL017
  257.             INT001 = 5 + REAL001
  258.             INT002 = 2 + INT003
  259.             Gosub LABEL015
  260.             :LABEL011
  261.             If ((REAL001 > 15) && BOOLEAN001) Then
  262.                 Inc INT003
  263.                 AnsiPos 45, 15
  264.                 If (21 - INT003 <> 0) Print "@X0F" + String(21 - INT003)
  265.                 If (21 - INT003 == 0) Then
  266.                     Print "SPLOOOOTCH!!           "
  267.                     Goto LABEL012
  268.                 Endif
  269.                 If (21 - INT003 == 1) Then
  270.                     Print "ST FLOOR!$!#!{%#@!     "
  271.                     Goto LABEL012
  272.                 Endif
  273.                 If (21 - INT003 == 2) Then
  274.                     Print "ND FLOOR!#!#!          "
  275.                     Goto LABEL012
  276.                 Endif
  277.                 If (21 - INT003 == 3) Then
  278.                     Print "rd floor!#!!           "
  279.                     Goto LABEL012
  280.                 Endif
  281.                 If ((((((21 - INT003 == 4) || (21 - INT003 == 5)) || (21 - INT003 == 6)) || (21 - INT003 == 7)) || (21 - INT003 == 8)) || (21 - INT003 == 9)) Then
  282.                     Print "th floor!!!            "
  283.                     Goto LABEL012
  284.                 Endif
  285.                 If ((((21 - INT003 == 10) || (21 - INT003 == 11)) || (21 - INT003 == 12)) || (21 - INT003 == 13)) Then
  286.                     Print "th floor!!             "
  287.                     Goto LABEL012
  288.                 Endif
  289.                 If (((((21 - INT003 == 14) || (21 - INT003 == 15)) || (21 - INT003 == 16)) || (21 - INT003 == 17)) || (21 - INT003 == 18)) Then
  290.                     Print "th floor!              "
  291.                     Goto LABEL012
  292.                 Endif
  293.                 If ((21 - INT003 == 19) || (21 - INT003 == 20)) Then
  294.                     Print "th floor...            "
  295.                 Endif
  296.             Endif
  297.             :LABEL012
  298.             If (INT003 == 21) Goto LABEL014
  299.             Gosub LABEL033
  300.         Endif
  301.         If (PeekDW(MkAddr(64, 108)) > DWORD001 + INTEGER001 / (100 / 18.2)) Then
  302.             :LABEL013
  303.             Gosub LABEL007
  304.             If (INTEGER003 == -1) Then
  305.                 FClose 1
  306.                 FOpen 1, STRING008, 0, 0
  307.                 Goto LABEL013
  308.             Endif
  309.             Sound 0
  310.             Sound INTEGER003
  311.             DWORD001 = PeekDW(MkAddr(64, 108))
  312.         Endif
  313.     EndWhile
  314.     Goto LABEL014
  315.     End
  316.     :LABEL014
  317.     FClose 1
  318.     Sound 0
  319.     If (INT003 == 21) Then
  320.         AnsiPos INT001 - 3, INT002 - 3
  321.         Print "   @X04.@X0C▄·"
  322.         AnsiPos INT001 - 3, INT002 - 2
  323.         Print " @X04. ·@X0C▀ ■."
  324.         AnsiPos INT001 - 3, INT002 - 1
  325.         Print "@X0C· ■@X04░▀░·@X0C.░▒"
  326.         AnsiPos INT001 - 3, INT002
  327.         Print "@X0C ░▄@X04▌■@X0C▌@X04▒@X0C▌▒ ░"
  328.         AnsiPos INT001 - 3, INT002 + 1
  329.         Print "@X0C· · @X04█@X0C▒   ·"
  330.         STRING001 = "SPLOOOOTCH!!"
  331.         AnsiPos 45, 15
  332.         For INTEGER002 = 1 To 4
  333.             Color 15
  334.             Print STRING001
  335.             Delay 2
  336.             Backup Len(STRING001)
  337.             Color 7
  338.             Print STRING001
  339.             Delay 2
  340.             Backup Len(STRING001)
  341.             Color 8
  342.             Print STRING001
  343.             Delay 2
  344.             Backup Len(STRING001)
  345.             Color 7
  346.             Print STRING001
  347.             Delay 2
  348.             Backup Len(STRING001)
  349.         Next
  350.         Color 15
  351.         Print STRING001
  352.         Delay 2
  353.         Backup Len(STRING001)
  354.     Endif
  355.     Goto LABEL018
  356.     End
  357.     :LABEL015
  358.     If (BOOLEAN001) Goto LABEL016
  359.     STRING010 = ScrText(INT001 + 1, INT002 - 1, 5, 1)
  360.     STRING011 = ScrText(INT001, INT002, 4, 1)
  361.     :LABEL016
  362.     AnsiPos INT001 + 1, INT002 - 1
  363.     If (BOOLEAN001) Then
  364.         Print "@X0E__()@X06<"
  365.     Else
  366.         Print "@X0E_()@X06<"
  367.     Endif
  368.     AnsiPos INT001, INT002
  369.     Print "@X0E(__)"
  370.     Return
  371.     :LABEL017
  372.     AnsiPos INT001 + 1, INT002 - 1
  373.     Print STRING010
  374.     AnsiPos INT001, INT002
  375.     Print STRING011
  376.     Return
  377.     :LABEL018
  378.     PageOn
  379.     FClose 1
  380.     Sound 0
  381.     If (BOOLEAN003) Then
  382.         FCreate 1, PPEPath() + "work.txt", 1, 0
  383.         FPutLn 1, Trim(U_Name(), " ") + " paged you outside hours."
  384.         FPutLn 1, "Reason was : " + STRING013
  385.         FClose 1
  386.         Message 0, "SYSOP", "AGS WAK 1.o", "PAGE", "N", 0, "N", 0, PPEPath() + "work.txt"
  387.         Delete PPEPath() + "work.txt"
  388.     Endif
  389.     AnsiPos 1, 20
  390.     PrintLn "@X06mm"
  391.     AnsiPos 8, 20
  392.     Print "mm"
  393.     Delay 2
  394.     INT004 = 2
  395.     AnsiPos 1, 20
  396.     PrintLn "@X06mm @X0FO O @X06mm"
  397.     Delay 2
  398.     AnsiPos 4, 19
  399.     PrintLn "@X0FO O"
  400.     AnsiPos 1, 20
  401.     PrintLn "@X06mm  @X0F|  @X06mm"
  402.     Delay 2
  403.     AnsiPos 4, 18
  404.     PrintLn "@X0FO O"
  405.     AnsiPos 4, 19
  406.     PrintLn "@X0F | "
  407.     AnsiPos 1, 20
  408.     PrintLn "@X06mm @X0F\_/ @X06mm"
  409.     Delay 2
  410.     AnsiPos 4, 17
  411.     PrintLn "@X0FO O"
  412.     AnsiPos 4, 18
  413.     PrintLn "@X0F | "
  414.     AnsiPos 4, 19
  415.     PrintLn "@X0F\_/"
  416.     AnsiPos 1, 20
  417.     PrintLn "@X06mm     mm"
  418.     Delay 2
  419.     AnsiPos 8, 19
  420.     Print "@X0E<@X0F SoRRY, THe SySoP iS NoT HeRE... MaY i LeT HiM A MeSSaGE ? YeS/No"
  421.     Gosub LABEL022
  422.     While (1) Do
  423.         STRING007 = Upper(Inkey())
  424.         If ((STRING007 == "LEFT") || (STRING007 == "RIGHT")) Then
  425.             If (INT004 == 1) Then
  426.                 INT004 = 2
  427.                 Goto LABEL019
  428.             Endif
  429.             INT004 = 1
  430.             :LABEL019
  431.             Gosub LABEL022
  432.         Endif
  433.         If (STRING007 == Chr(13)) Then
  434.             If (INT004 == 1) Then
  435.                 STRING007 = "Y"
  436.                 Goto LABEL020
  437.             Endif
  438.             STRING007 = "N"
  439.         Endif
  440.         :LABEL020
  441.         If (STRING007 == "Y") Then
  442.             INT004 = 1
  443.             Gosub LABEL022
  444.             KbdStuff "C" + Chr(13)
  445.             AnsiPos 1, 23
  446.             PrintLn 
  447.             End
  448.         Endif
  449.         If (STRING007 == "N") Then
  450.             INT004 = 2
  451.             Gosub LABEL022
  452.             :LABEL021
  453.             AnsiPos 1, 23
  454.             PrintLn 
  455.             End
  456.         Endif
  457.     EndWhile
  458.     :LABEL022
  459.     If (INT004 == 1) Then
  460.         Backup 6
  461.         Print "@X1FYeS@X0F/No"
  462.     Else
  463.         Backup 6
  464.         Print "@X0FYeS/@X1FNo"
  465.     Endif
  466.     Return
  467.     :LABEL023
  468.     FClose 1
  469.     Sound 0
  470.     AnsiPos 1, 20
  471.     PrintLn "@X06mm     mm"
  472.     Delay 2
  473.     AnsiPos 1, 20
  474.     PrintLn "@X06mm @X0FO O @X06mm"
  475.     Delay 2
  476.     AnsiPos 1, 19
  477.     PrintLn "@X0F   O O   "
  478.     PrintLn "@X06mm  @X0F|  @X06mm"
  479.     Delay 2
  480.     AnsiPos 1, 18
  481.     PrintLn "@X0F   O O   "
  482.     PrintLn "@X0F    |    "
  483.     PrintLn "@X06mm @X0F\_/ @X06mm"
  484.     Delay 2
  485.     AnsiPos 1, 17
  486.     PrintLn "@X0F   O O   "
  487.     PrintLn "@X0F    |    "
  488.     PrintLn "@X0F   \_/   "
  489.     PrintLn "@X06mm     mm"
  490.     Delay 2
  491.     AnsiPos 8, 19
  492.     Print "@X0E<@X0F SYSoP iS uNaVaiLaBLe... iS THiS aN eMeRGeNCY ? YeS/No"
  493.     Gosub LABEL022
  494.     INT004 = 2
  495.     While (1) Do
  496.         STRING007 = Upper(Inkey())
  497.         If ((STRING007 == "LEFT") || (STRING007 == "RIGHT")) Then
  498.             If (INT004 == 1) Then
  499.                 INT004 = 2
  500.                 Goto LABEL024
  501.             Endif
  502.             INT004 = 1
  503.             :LABEL024
  504.             Gosub LABEL022
  505.         Endif
  506.         If (STRING007 == Chr(13)) Then
  507.             If (INT004 == 1) Then
  508.                 STRING007 = "Y"
  509.                 Goto LABEL025
  510.             Endif
  511.             STRING007 = "N"
  512.         Endif
  513.         :LABEL025
  514.         If (STRING007 == "Y") Then
  515.             INT004 = 1
  516.             Gosub LABEL022
  517.             Delay 2
  518.             AnsiPos 6, 17
  519.             Print "@X0Fô"
  520.             Delay 2
  521.             AnsiPos 6, 17
  522.             Print "@X0FO"
  523.             Delay 2
  524.             AnsiPos 6, 17
  525.             Print "@X0Fô"
  526.             AnsiPos 8, 19
  527.             ClrEol
  528.             Print "@X0E<@X0F So WHaT iS THe PaSSWoRD, MaN ? "
  529.             STRING005 = ""
  530.             BOOLEAN002 = 1
  531.             INTEGER005 = 20
  532.             Gosub LABEL027
  533.             If (Upper(STRING006) <> Upper(STRING005)) Then
  534.                 AnsiPos 40, 19
  535.                 ClrEol
  536.                 Print "WRoNG!"
  537.                 Delay 2
  538.                 End
  539.                 Goto LABEL026
  540.             Endif
  541.             AnsiPos 40, 19
  542.             ClrEol
  543.             Print "RiGHT!"
  544.             Delay 2
  545.             Goto LABEL008
  546.         Endif
  547.         :LABEL026
  548.         If (STRING007 == "N") Then
  549.             INT004 = 2
  550.             Gosub LABEL022
  551.             Delay 2
  552.             End
  553.         Endif
  554.     EndWhile
  555.     :LABEL027
  556.     STRING007 = Inkey()
  557.     If (Len(STRING007) > 1) Goto LABEL027
  558.     If (STRING007 <> "") Then
  559.         If (STRING007 == Chr(13)) Goto LABEL032
  560.         If (Asc(STRING007) > 31) Then
  561.             If (Len(STRING005) > INTEGER005) Goto LABEL027
  562.             STRING007 = Upper(STRING007)
  563.             If (STRING007 == "A") STRING007 = "a"
  564.             If (STRING007 == "E") STRING007 = "e"
  565.             If (STRING007 == "I") STRING007 = "i"
  566.             If (STRING007 == "O") STRING007 = "o"
  567.             If (STRING007 == "U") STRING007 = "u"
  568.             STRING002 = Right(STRING005, 1)
  569.             STRING003 = Left(Right(STRING005, 2), 1)
  570.             If ((STRING002 <> "") && (STRING002 <> " ")) Then
  571.                 If ((STRING003 <> "") && (STRING003 <> " ")) Then
  572.                     Print "@X0F"
  573.                     Goto LABEL028
  574.                 Endif
  575.                 Print "@X0E"
  576.                 :LABEL028
  577.                 Goto LABEL029
  578.             Endif
  579.             Print "@X06"
  580.             :LABEL029
  581.             If (BOOLEAN002) Then
  582.                 Print "."
  583.                 Goto LABEL030
  584.             Endif
  585.             Print STRING007
  586.             :LABEL030
  587.             STRING005 = STRING005 + STRING007
  588.         Endif
  589.         If ((Asc(STRING007) == 8) && (Len(STRING005) > 0)) Then
  590.             Backup 1
  591.             If (BOOLEAN002) Then
  592.                 Print "@X0F "
  593.                 Goto LABEL031
  594.             Endif
  595.             Print "@X08·"
  596.             :LABEL031
  597.             Backup 1
  598.             STRING005 = Left(STRING005, Len(STRING005) - 1)
  599.         Endif
  600.     Endif
  601.     Goto LABEL027
  602.     :LABEL032
  603.     Return
  604.     :LABEL033
  605.     AnsiPos 1, 23
  606.     Color 0
  607.     Print " "
  608.     Backup 1
  609.     Return
  610.  
  611. ;------------------------------------------------------------------------------
  612. ;
  613. ; Usage report (before postprocessing)
  614. ;
  615. ; ■ Statements used :
  616. ;
  617. ;    11      End
  618. ;    3       Cls
  619. ;    3       ClrEol
  620. ;    6       Color 
  621. ;    120     Goto 
  622. ;    82      Let 
  623. ;    50      Print 
  624. ;    35      PrintLn 
  625. ;    82      If 
  626. ;    2       DispFile 
  627. ;    1       FCreate 
  628. ;    4       FOpen 
  629. ;    8       FClose 
  630. ;    1       FGet 
  631. ;    2       FPutLn 
  632. ;    1       StartDisp 
  633. ;    1       Delete 
  634. ;    21      Gosub 
  635. ;    8       Return
  636. ;    21      Delay 
  637. ;    6       Inc 
  638. ;    1       Tokenize 
  639. ;    1       KbdStuff 
  640. ;    59      AnsiPos 
  641. ;    10      Backup 
  642. ;    1       Message 
  643. ;    9       Sound 
  644. ;    2       Chat
  645. ;    3       SPrint 
  646. ;    1       PageOn
  647. ;    2       PageOff
  648. ;
  649. ;
  650. ; ■ Functions used :
  651. ;
  652. ;    3       -
  653. ;    8       /
  654. ;    57      +
  655. ;    42      -
  656. ;    67      ==
  657. ;    8       <>
  658. ;    3       <
  659. ;    1       <=
  660. ;    12      >
  661. ;    2       >=
  662. ;    63      !
  663. ;    7       &&
  664. ;    18      ||
  665. ;    13      Len(
  666. ;    5       Upper()
  667. ;    3       Mid()
  668. ;    6       Left()
  669. ;    3       Right()
  670. ;    8       Chr()
  671. ;    2       Asc()
  672. ;    3       InStr()
  673. ;    5       Trim()
  674. ;    2       Random()
  675. ;    1       Date()
  676. ;    2       Time()
  677. ;    1       U_Name()
  678. ;    1       Dow()
  679. ;    3       Inkey()
  680. ;    1       String()
  681. ;    17      PPEPath()
  682. ;    9       ReadLine()
  683. ;    2       GetToken()
  684. ;    8       MkAddr()
  685. ;    2       Exist()
  686. ;    3       S2I()
  687. ;    2       FileInf()
  688. ;    2       KInkey()
  689. ;    2       MInkey()
  690. ;    1       TokCount()
  691. ;    8       PeekDW()
  692. ;    2       ScrText()
  693. ;    1       ToBoolean()
  694. ;    2       ToTime()
  695. ;
  696. ;------------------------------------------------------------------------------
  697. ;
  698. ; Analysis flags : p
  699. ;
  700. ; p - Peek in memory ■ 2
  701. ;     Since a peek statement allows someone to read entire memory contents
  702. ;     you may check this statement, however, this is usually not a risk
  703. ;     ■ Search for : PEEK, PEEKW, PEEKDW
  704. ;
  705. ;------------------------------------------------------------------------------
  706. ;
  707. ; Postprocessing report
  708. ;
  709. ;    1       For/Next
  710. ;    6       While/EndWhile
  711. ;    51      If/Then or If/Then/Else
  712. ;    1       Select Case
  713. ;
  714. ;------------------------------------------------------------------------------
  715. ;                 AEGiS Corp - Break the routines, code against the machines!
  716. ;------------------------------------------------------------------------------
  717.